(mouse-set-mark): Select the window before saving point.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index d6d0c4bb43cbe93067a5c0c3ebd86b299b05691d..0384a6349dfeb366a93c9f33a46bfe18998e7d54 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -458,6 +458,9 @@ If DIR is positive skip forward; if negative, skip backward."
 Display cursor at that position for a second.
 This must be bound to a mouse click."
   (interactive "e")
+  (mouse-minibuffer-check click)
+  (select-window (posn-window (event-start click)))
+  ;; We don't use save-excursion because that preserves the mark too.
   (let ((point-save (point)))
     (unwind-protect
        (progn (mouse-set-point click)